home *** CD-ROM | disk | FTP | other *** search
/ PC World 2002 March / PCWorld_2002-03_cd.bin / Software / TemaCD / xteq / setup.exe / {app} / plugins / XQ MS Intellipoint.xpl < prev    next >
Text File  |  2000-11-11  |  2KB  |  75 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 5.0"
  2. "TYPE"="6"
  3. "COUNT"="3"
  4. "UIPATH"="Hardware\Mouse\MS Intellipoint"
  5. "NAME"="Microsoft Intellipoint Options"
  6. "VERSION"="1.11"
  7. "LANGUAGE"="VBScript"
  8. "TEXT 1"="Hide Pointer when Typing"
  9. "TEXT 2"="Show IntelliPoint tray icon"
  10. "TEXT 3"="Enable Click Lock"
  11. "DESCRIPTION 1"="For Microsoft IntelliPoint." 
  12. "DESCRIPTION 2"="Item #1: Check Box to hide pointer when typing; clear box to not hide pointer."
  13. "DESCRIPTION 3"="Item #2: Check Box to show Intellipont Icon in Tray; clear box to hide icon."
  14. "DESCRIPTION 4"="Iten #3: Check Box to highlight or drag an item without continuing to hold down a button; click and hold for a moment to set ClickLock on an item, then click again to release ClickLock."
  15. "AUTHOR"="Ojatex@aol.com"
  16. "CONTACTURL"="http://members.aol.com/ojatex/"
  17. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  18. "COMMENT 1"="Thanks to CptSiskoX for suggested tip & settings."
  19. "COMMENT 2"="STOP Mouse Abuse --> get a Laptop."
  20.  
  21. sP="HKCU\Control Panel\Mouse\Vanish" 'dword=1=hide;0=nohide
  22. sP2="HKCU\Control Panel\Microsoft Input Devices\Mouse\TrayIcon"   'stg=TRUE=Show;FALSE=NoShow
  23. sP3="HKCU\Control Panel\Microsoft Input Devices\Mouse\ClickLock" 'stg=ON=enablesClickLock;OFF=disablesClickLock
  24. sP4="HKCU\Control Panel\Microsoft Input Devices\Mouse\ClickLockTime"  'dword=000002ee=750
  25.  
  26.  
  27. Sub Plugin_Initialize 
  28.  
  29.  i=RegReadValue(sP)
  30.  if i=1 then SetUIElement 1,true
  31.  
  32. i=RegReadValue(sP2)
  33.  if i="TRUE" then SetUIElement 2,true
  34.  
  35. i=RegReadValue(sP3)
  36.  if i="ON" then SetUIElement 3,true
  37.  
  38. End Sub
  39.  
  40. Sub Plugin_CheckData(ElementIndex)
  41. End Sub
  42.  
  43. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  44.  b=GetUIElement(1)
  45.  if b=true then
  46.   Call RegWriteValue(sP,"1",2)
  47.  else
  48.   Call RegWriteValue(sP,"0",2)
  49.  end if
  50.  
  51.  b=GetUIElement(2)
  52.  if b=true then
  53.   Call RegWriteValue(sP2,"TRUE",1)
  54.  else
  55.   Call RegWriteValue(sP2,"FALSE",1)
  56.  end if
  57.  
  58.  b=GetUIElement(3)
  59.  if b=true then
  60.   Call RegWriteValue(sP3,"ON",1)
  61.   Call RegWriteValue(sP4,"750",2)
  62.  else
  63.   Call RegWriteValue(sP3,"OFF",1)
  64.   Call RegWriteValue(sP4,"750",2)
  65.  
  66.  end if
  67. End Sub
  68.  
  69.  
  70. Sub Plugin_Terminate 
  71. End Sub
  72.  
  73.  
  74.  
  75.